/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / find-gc.elc.z / find-gc.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 35 3a 34 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:55:47 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 66 69 6e 64 2d 67 | 63 2e 65 6c 0a 3b 3b 3b |s/find-g|c.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 66 69 6e 64 2d 67 | (error |"`find-g|
|000001f0| 63 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |c.el' wa|s compil|
|00000200| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 32 30 22 |ed for E|macs 20"|
|00000210| 29 29 0a 0a 28 6f 72 20 | 28 62 6f 75 6e 64 70 20 |))..(or |(boundp |
|00000220| 27 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 |'current|-load-li|
|00000230| 73 74 29 20 28 73 65 74 | 71 20 63 75 72 72 65 6e |st) (set|q curren|
|00000240| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 29 |t-load-l|ist nil)|
|00000250| 29 0a 0a 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)...(byt|e-code "|
|00000260| c0 11 c2 13 c4 15 c6 87 | 22 20 5b 22 2f 6e 65 74 |........|" ["/net|
|00000270| 2f 70 72 6f 73 70 65 72 | 2f 6f 70 74 2f 78 65 6d |/prosper|/opt/xem|
|00000280| 61 63 73 2f 65 64 69 74 | 6f 72 2f 73 72 63 22 20 |acs/edit|or/src" |
|00000290| 65 6d 61 63 73 2d 73 6f | 75 72 63 65 2d 64 69 72 |emacs-so|urce-dir|
|000002a0| 65 63 74 6f 72 79 20 22 | 2d 49 2f 6e 65 74 2f 70 |ectory "|-I/net/p|
|000002b0| 72 6f 73 70 65 72 2f 6f | 70 74 2f 78 65 6d 61 63 |rosper/o|pt/xemac|
|000002c0| 73 2f 65 64 69 74 6f 72 | 2f 73 72 63 20 2d 49 2f |s/editor|/src -I/|
|000002d0| 75 73 72 2f 64 74 2f 69 | 6e 63 6c 75 64 65 20 2d |usr/dt/i|nclude -|
|000002e0| 49 2f 6e 65 74 2f 70 72 | 6f 73 70 65 72 2f 6f 70 |I/net/pr|osper/op|
|000002f0| 74 2f 53 55 4e 57 6d 6f | 74 69 66 2f 69 6e 63 6c |t/SUNWmo|tif/incl|
|00000300| 75 64 65 20 2d 49 2f 6e | 65 74 2f 70 72 6f 73 70 |ude -I/n|et/prosp|
|00000310| 65 72 2f 6f 70 74 2f 78 | 65 6d 61 63 73 2f 65 64 |er/opt/x|emacs/ed|
|00000320| 69 74 6f 72 2f 69 6d 70 | 6f 72 74 2f 78 70 6d 2f |itor/imp|ort/xpm/|
|00000330| 69 6e 63 6c 75 64 65 20 | 2d 49 2f 6e 65 74 2f 70 |include |-I/net/p|
|00000340| 72 6f 73 70 65 72 2f 6f | 70 74 2f 78 65 6d 61 63 |rosper/o|pt/xemac|
|00000350| 73 2f 65 64 69 74 6f 72 | 2f 69 6d 70 6f 72 74 2f |s/editor|/import/|
|00000360| 69 6e 63 6c 75 64 65 20 | 2d 49 2f 75 73 72 2f 64 |include |-I/usr/d|
|00000370| 65 6d 6f 2f 53 4f 55 4e | 44 2f 69 6e 63 6c 75 64 |emo/SOUN|D/includ|
|00000380| 65 20 2d 49 2f 75 73 72 | 2f 6f 70 65 6e 77 69 6e |e -I/usr|/openwin|
|00000390| 2f 69 6e 63 6c 75 64 65 | 20 2d 49 2f 75 73 72 2f |/include| -I/usr/|
|000003a0| 6f 70 65 6e 77 69 6e 2f | 69 6e 63 6c 75 64 65 2f |openwin/|include/|
|000003b0| 64 65 73 6b 74 6f 70 20 | 2d 49 2f 75 73 72 2f 6f |desktop |-I/usr/o|
|000003c0| 70 65 6e 77 69 6e 2f 69 | 6e 63 6c 75 64 65 2f 64 |penwin/i|nclude/d|
|000003d0| 65 73 6b 74 6f 70 20 20 | 20 2d 49 2f 6e 65 74 2f |esktop  | -I/net/|
|000003e0| 70 72 6f 73 70 65 72 2f | 6f 70 74 2f 78 65 6d 61 |prosper/|opt/xema|
|000003f0| 63 73 2f 65 64 69 74 6f | 72 2f 73 72 63 2f 2e 2e |cs/edito|r/src/..|
|00000400| 2f 6c 77 6c 69 62 20 20 | 2d 67 20 2d 76 20 2d 44 |/lwlib  |-g -v -D|
|00000410| 4e 65 65 64 46 75 6e 63 | 74 69 6f 6e 50 72 6f 74 |NeedFunc|tionProt|
|00000420| 6f 74 79 70 65 73 20 2d | 78 69 6c 64 6f 66 66 20 |otypes -|xildoff |
|00000430| 2d 49 2f 75 73 72 2f 64 | 74 2f 69 6e 63 6c 75 64 |-I/usr/d|t/includ|
|00000440| 65 20 2d 49 2f 6e 65 74 | 2f 70 72 6f 73 70 65 72 |e -I/net|/prosper|
|00000450| 2f 6f 70 74 2f 53 55 4e | 57 6d 6f 74 69 66 2f 69 |/opt/SUN|Wmotif/i|
|00000460| 6e 63 6c 75 64 65 20 2d | 49 2f 6e 65 74 2f 70 72 |nclude -|I/net/pr|
|00000470| 6f 73 70 65 72 2f 6f 70 | 74 2f 78 65 6d 61 63 73 |osper/op|t/xemacs|
|00000480| 2f 65 64 69 74 6f 72 2f | 69 6d 70 6f 72 74 2f 78 |/editor/|import/x|
|00000490| 70 6d 2f 69 6e 63 6c 75 | 64 65 20 2d 49 2f 6e 65 |pm/inclu|de -I/ne|
|000004a0| 74 2f 70 72 6f 73 70 65 | 72 2f 6f 70 74 2f 78 65 |t/prospe|r/opt/xe|
|000004b0| 6d 61 63 73 2f 65 64 69 | 74 6f 72 2f 69 6d 70 6f |macs/edi|tor/impo|
|000004c0| 72 74 2f 69 6e 63 6c 75 | 64 65 20 2d 49 2f 75 73 |rt/inclu|de -I/us|
|000004d0| 72 2f 64 65 6d 6f 2f 53 | 4f 55 4e 44 2f 69 6e 63 |r/demo/S|OUND/inc|
|000004e0| 6c 75 64 65 20 2d 49 2f | 75 73 72 2f 64 65 6d 6f |lude -I/|usr/demo|
|000004f0| 2f 53 4f 55 4e 44 2f 69 | 6e 63 6c 75 64 65 22 20 |/SOUND/i|nclude" |
|00000500| 69 6e 63 6c 75 64 65 2d | 64 69 72 65 63 74 69 76 |include-|directiv|
|00000510| 65 73 20 28 22 45 6d 61 | 63 73 46 72 61 6d 65 2e |es ("Ema|csFrame.|
|00000520| 63 22 20 22 45 6d 61 63 | 73 4d 61 6e 61 67 65 72 |c" "Emac|sManager|
|00000530| 2e 63 22 20 22 45 6d 61 | 63 73 53 68 65 6c 6c 2e |.c" "Ema|csShell.|
|00000540| 63 22 20 22 61 62 62 72 | 65 76 2e 63 22 20 22 61 |c" "abbr|ev.c" "a|
|00000550| 6c 6c 6f 63 2e 63 22 20 | 22 62 6c 6f 63 6b 74 79 |lloc.c" |"blockty|
|00000560| 70 65 2e 63 22 20 22 62 | 75 66 66 65 72 2e 63 22 |pe.c" "b|uffer.c"|
|00000570| 20 22 62 79 74 65 63 6f | 64 65 2e 63 22 20 22 63 | "byteco|de.c" "c|
|00000580| 61 6c 6c 69 6e 74 2e 63 | 22 20 22 63 61 6c 6c 70 |allint.c|" "callp|
|00000590| 72 6f 63 2e 63 22 20 22 | 63 61 73 65 66 69 64 64 |roc.c" "|casefidd|
|000005a0| 6c 65 2e 63 22 20 22 63 | 61 73 65 74 61 62 2e 63 |le.c" "c|asetab.c|
|000005b0| 22 20 22 63 6d 2e 63 22 | 20 22 63 6d 64 73 2e 63 |" "cm.c"| "cmds.c|
|000005c0| 22 20 22 64 61 74 61 2e | 63 22 20 22 64 65 62 75 |" "data.|c" "debu|
|000005d0| 67 2e 63 22 20 22 64 65 | 76 69 63 65 2d 73 74 72 |g.c" "de|vice-str|
|000005e0| 65 61 6d 2e 63 22 20 22 | 64 65 76 69 63 65 2d 74 |eam.c" "|device-t|
|000005f0| 74 79 2e 63 22 20 22 64 | 65 76 69 63 65 2d 78 2e |ty.c" "d|evice-x.|
|00000600| 63 22 20 22 64 65 76 69 | 63 65 2e 63 22 20 22 64 |c" "devi|ce.c" "d|
|00000610| 69 72 65 64 2e 63 22 20 | 22 64 6f 63 2e 63 22 20 |ired.c" |"doc.c" |
|00000620| 22 64 6f 70 72 6e 74 2e | 63 22 20 22 64 79 6e 61 |"doprnt.|c" "dyna|
|00000630| 72 72 2e 63 22 20 22 65 | 64 69 74 66 6e 73 2e 63 |rr.c" "e|ditfns.c|
|00000640| 22 20 22 65 6c 68 61 73 | 68 2e 63 22 20 22 65 6d |" "elhas|h.c" "em|
|00000650| 61 63 73 2e 63 22 20 22 | 65 76 61 6c 2e 63 22 20 |acs.c" "|eval.c" |
|00000660| 22 65 76 65 6e 74 2d 58 | 74 2e 63 22 20 22 65 76 |"event-X|t.c" "ev|
|00000670| 65 6e 74 2d 73 74 72 65 | 61 6d 2e 63 22 20 22 65 |ent-stre|am.c" "e|
|00000680| 76 65 6e 74 2d 74 74 79 | 2e 63 22 20 22 65 76 65 |vent-tty|.c" "eve|
|00000690| 6e 74 73 2e 63 22 20 22 | 65 78 74 65 6e 74 73 2e |nts.c" "|extents.|
|000006a0| 63 22 20 22 66 61 63 65 | 73 2e 63 22 20 22 66 69 |c" "face|s.c" "fi|
|000006b0| 6c 65 69 6f 2e 63 22 20 | 22 66 69 6c 65 6c 6f 63 |leio.c" |"fileloc|
|000006c0| 6b 2e 63 22 20 22 66 69 | 6c 65 6d 6f 64 65 2e 63 |k.c" "fi|lemode.c|
|000006d0| 22 20 22 66 6c 6f 61 74 | 66 6e 73 2e 63 22 20 22 |" "float|fns.c" "|
|000006e0| 66 6e 73 2e 63 22 20 22 | 66 6f 6e 74 2d 6c 6f 63 |fns.c" "|font-loc|
|000006f0| 6b 2e 63 22 20 22 66 72 | 61 6d 65 2d 74 74 79 2e |k.c" "fr|ame-tty.|
|00000700| 63 22 20 22 66 72 61 6d | 65 2d 78 2e 63 22 20 22 |c" "fram|e-x.c" "|
|00000710| 66 72 61 6d 65 2e 63 22 | 20 22 67 65 74 6c 6f 61 |frame.c"| "getloa|
|00000720| 64 61 76 67 2e 63 22 20 | 22 67 6c 79 70 68 73 2e |davg.c" |"glyphs.|
|00000730| 63 22 20 22 67 6d 61 6c | 6c 6f 63 2e 63 22 20 22 |c" "gmal|loc.c" "|
|00000740| 68 61 73 68 2e 63 22 20 | 22 69 6e 64 65 6e 74 2e |hash.c" |"indent.|
|00000750| 63 22 20 22 69 6e 73 64 | 65 6c 2e 63 22 20 22 69 |c" "insd|el.c" "i|
|00000760| 6e 74 6c 2e 63 22 20 22 | 6b 65 79 62 6f 61 72 64 |ntl.c" "|keyboard|
|00000770| 2e 63 22 20 22 6b 65 79 | 6d 61 70 2e 63 22 20 22 |.c" "key|map.c" "|
|00000780| 6c 61 73 74 66 69 6c 65 | 2e 63 22 20 22 6c 72 65 |lastfile|.c" "lre|
|00000790| 61 64 2e 63 22 20 22 6c | 73 74 72 65 61 6d 2e 63 |ad.c" "l|stream.c|
|000007a0| 22 20 22 6d 61 63 72 6f | 73 2e 63 22 20 22 6d 61 |" "macro|s.c" "ma|
|000007b0| 72 6b 65 72 2e 63 22 20 | 22 6d 64 35 2e 63 22 20 |rker.c" |"md5.c" |
|000007c0| 22 6d 65 6e 75 62 61 72 | 2d 78 2e 63 22 20 22 6d |"menubar|-x.c" "m|
|000007d0| 65 6e 75 62 61 72 2e 63 | 22 20 22 6d 69 6e 69 62 |enubar.c|" "minib|
|000007e0| 75 66 2e 63 22 20 22 6f | 62 6a 65 63 74 73 2d 78 |uf.c" "o|bjects-x|
|000007f0| 2e 63 22 20 22 6f 62 6a | 65 63 74 73 2e 63 22 20 |.c" "obj|ects.c" |
|00000800| 22 6f 70 61 71 75 65 2e | 63 22 20 22 70 72 69 6e |"opaque.|c" "prin|
|00000810| 74 2e 63 22 20 22 70 72 | 6f 63 65 73 73 2e 63 22 |t.c" "pr|ocess.c"|
|00000820| 20 22 70 75 72 65 2e 63 | 22 20 22 72 65 64 69 73 | "pure.c|" "redis|
|00000830| 70 6c 61 79 2d 6f 75 74 | 70 75 74 2e 63 22 20 22 |play-out|put.c" "|
|00000840| 72 65 64 69 73 70 6c 61 | 79 2d 74 74 79 2e 63 22 |redispla|y-tty.c"|
|00000850| 20 22 72 65 64 69 73 70 | 6c 61 79 2d 78 2e 63 22 | "redisp|lay-x.c"|
|00000860| 20 22 72 65 64 69 73 70 | 6c 61 79 2e 63 22 20 22 | "redisp|lay.c" "|
|00000870| 72 65 67 65 78 2e 63 22 | 20 22 73 63 72 6f 6c 6c |regex.c"| "scroll|
|00000880| 62 61 72 2e 63 22 20 22 | 73 65 61 72 63 68 2e 63 |bar.c" "|search.c|
|00000890| 22 20 22 73 6f 75 6e 64 | 2e 63 22 20 22 73 70 65 |" "sound|.c" "spe|
|000008a0| 63 69 66 69 65 72 2e 63 | 22 20 22 73 75 6e 70 6c |cifier.c|" "sunpl|
|000008b0| 61 79 2e 63 22 20 22 73 | 75 6e 70 72 6f 2e 63 22 |ay.c" "s|unpro.c"|
|000008c0| 20 22 73 79 6d 62 6f 6c | 73 2e 63 22 20 22 73 79 | "symbol|s.c" "sy|
|000008d0| 6e 74 61 78 2e 63 22 20 | 22 73 79 73 64 65 70 2e |ntax.c" |"sysdep.|
|000008e0| 63 22 20 22 74 65 72 6d | 69 6e 66 6f 2e 63 22 20 |c" "term|info.c" |
|000008f0| 22 74 6f 6f 6c 62 61 72 | 2d 78 2e 63 22 20 22 74 |"toolbar|-x.c" "t|
|00000900| 6f 6f 6c 62 61 72 2e 63 | 22 20 22 74 6f 6f 6c 74 |oolbar.c|" "toolt|
|00000910| 61 6c 6b 2e 63 22 20 22 | 75 6e 64 6f 2e 63 22 20 |alk.c" "|undo.c" |
|00000920| 22 75 6e 65 78 73 6f 6c | 32 2e 63 22 20 22 76 6d |"unexsol|2.c" "vm|
|00000930| 2d 6c 69 6d 69 74 2e 63 | 22 20 22 77 69 6e 64 6f |-limit.c|" "windo|
|00000940| 77 2e 63 22 20 22 78 67 | 63 63 61 63 68 65 2e 63 |w.c" "xg|ccache.c|
|00000950| 22 20 22 78 73 65 6c 65 | 63 74 2e 63 22 29 20 73 |" "xsele|ct.c") s|
|00000960| 6f 75 72 63 65 2d 66 69 | 6c 65 73 20 6e 69 6c 5d |ource-fi|les nil]|
|00000970| 20 31 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 | 1).(def|alias 'f|
|00000980| 69 6e 64 2d 67 63 2d 75 | 6e 73 61 66 65 20 23 5b |ind-gc-u|nsafe #[|
|00000990| 6e 69 6c 20 22 c0 c1 21 | 88 c2 20 88 c3 c4 21 88 |nil "..!|.. ...!.|
|000009a0| c5 0e 06 c7 5c 22 16 06 | c8 c9 ca 0e 06 5c 22 21 |....\"..|.....\"!|
|000009b0| 88 c1 16 06 c3 cb 21 88 | c5 0e 06 cc 5c 22 16 06 |......!.|....\"..|
|000009c0| c8 c9 ca 0e 06 5c 22 21 | 87 22 20 5b 74 72 61 63 |.....\"!|." [trac|
|000009d0| 65 2d 63 61 6c 6c 2d 74 | 72 65 65 20 6e 69 6c 20 |e-call-t|ree nil |
|000009e0| 74 72 61 63 65 2d 75 73 | 65 2d 74 72 65 65 20 66 |trace-us|e-tree f|
|000009f0| 69 6e 64 2d 75 6e 73 61 | 66 65 2d 66 75 6e 63 73 |ind-unsa|fe-funcs|
|00000a00| 20 46 67 61 72 62 61 67 | 65 5f 63 6f 6c 6c 65 63 | Fgarbag|e_collec|
|00000a10| 74 20 73 6f 72 74 20 75 | 6e 73 61 66 65 2d 6c 69 |t sort u|nsafe-li|
|00000a20| 73 74 20 23 5b 28 78 20 | 79 29 20 22 08 40 09 40 |st #[(x |y) ".@.@|
|00000a30| 99 87 22 20 5b 78 20 79 | 5d 20 32 5d 20 70 72 69 |.." [x y|] 2] pri|
|00000a40| 6e 63 20 66 6f 72 6d 61 | 74 20 22 25 73 5c 6e 22 |nc forma|t "%s\n"|
|00000a50| 20 46 67 61 72 62 61 67 | 65 5f 63 6f 6c 6c 65 63 | Fgarbag|e_collec|
|00000a60| 74 5f 31 20 23 5b 28 78 | 20 79 29 20 22 08 40 09 |t_1 #[(x| y) ".@.|
|00000a70| 40 99 87 22 20 5b 78 20 | 79 5d 20 32 5d 5d 20 34 |@.." [x |y] 2]] 4|
|00000a80| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 69 |]).(defa|lias 'fi|
|00000a90| 6e 64 2d 75 6e 73 61 66 | 65 2d 66 75 6e 63 73 20 |nd-unsaf|e-funcs |
|00000aa0| 23 5b 28 74 61 72 67 65 | 74 29 20 22 08 43 43 11 |#[(targe|t) ".CC.|
|00000ab0| c2 08 21 87 22 20 5b 74 | 61 72 67 65 74 20 75 6e |..!." [t|arget un|
|00000ac0| 73 61 66 65 2d 6c 69 73 | 74 20 74 72 61 63 65 2d |safe-lis|t trace-|
|00000ad0| 75 6e 73 61 66 65 5d 20 | 32 5d 29 0a 28 64 65 66 |unsafe] |2]).(def|
|00000ae0| 61 6c 69 61 73 20 27 74 | 72 61 63 65 2d 75 6e 73 |alias 't|race-uns|
|00000af0| 61 66 65 20 23 5b 28 66 | 75 6e 63 29 20 22 08 09 |afe #[(f|unc) "..|
|00000b00| b7 89 1a ac 86 c3 c4 0d | 40 5c 22 88 5c 6e 41 89 |........|@\".\nA.|
|00000b10| 12 ad 9b 5c 6e 40 0d b7 | ac 74 5c 6e 40 0e 06 73 |...\n@..|.t\n@..s|
|00000b20| ac 6d 5c 6e 40 08 42 0d | 42 15 c7 5c 6e 40 21 88 |.m\n@.B.|B..\n@!.|
|00000b30| aa 5f 29 87 22 20 5b 66 | 75 6e 63 20 73 75 62 72 |._)." [f|unc subr|
|00000b40| 73 2d 75 73 65 64 20 75 | 73 65 64 20 65 72 72 6f |s-used u|sed erro|
|00000b50| 72 20 22 4e 6f 20 73 75 | 62 72 73 2d 75 73 65 64 |r "No su|brs-used|
|00000b60| 20 66 6f 72 20 25 73 22 | 20 75 6e 73 61 66 65 2d | for %s"| unsafe-|
|00000b70| 6c 69 73 74 20 6e 6f 72 | 65 74 75 72 6e 2d 6c 69 |list nor|eturn-li|
|00000b80| 73 74 20 74 72 61 63 65 | 2d 75 6e 73 61 66 65 5d |st trace|-unsafe]|
|00000b90| 20 34 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 4]).(by|te-code |
|00000ba0| 22 c0 11 c2 87 22 20 5b | 28 73 69 67 6e 61 6c 5f |"...." [|(signal_|
|00000bb0| 65 72 72 6f 72 20 65 72 | 72 6f 72 20 46 74 68 72 |error er|ror Fthr|
|00000bc0| 6f 77 20 77 72 6f 6e 67 | 5f 74 79 70 65 5f 61 72 |ow wrong|_type_ar|
|00000bd0| 67 75 6d 65 6e 74 29 20 | 6e 6f 72 65 74 75 72 6e |gument) |noreturn|
|00000be0| 2d 6c 69 73 74 20 6e 69 | 6c 5d 20 31 29 0a 28 64 |-list ni|l] 1).(d|
|00000bf0| 65 66 61 6c 69 61 73 20 | 27 74 72 61 63 65 2d 63 |efalias |'trace-c|
|00000c00| 61 6c 6c 2d 74 72 65 65 | 20 23 5b 28 26 6f 70 74 |all-tree| #[(&opt|
|00000c10| 69 6f 6e 61 6c 20 61 6c | 72 65 61 64 79 2d 73 65 |ional al|ready-se|
|00000c20| 74 75 70 29 20 22 08 ac | a8 c1 c2 c3 21 21 88 c4 |tup) "..|....!!..|
|00000c30| c5 c6 89 89 c7 c8 26 06 | 88 c4 c5 c6 89 89 c7 c9 |......&.|........|
|00000c40| 26 06 88 c4 c5 c6 89 89 | c7 c2 ca 0e 0b 5c 22 26 |&.......|.....\"&|
|00000c50| 06 88 8a cc cd 21 71 88 | c6 16 0e c6 0e 0f c6 89 |.....!q.|........|
|00000c60| 1e 10 1e 11 1e 12 1e 13 | 0e 12 85 cb 00 c1 c2 d4 |........|........|
|00000c70| 0e 12 40 5c 22 21 88 c4 | c5 c6 89 89 c7 c2 d5 0e |..@\"!..|........|
|00000c80| 16 0e 12 40 23 26 06 88 | d7 20 88 d8 d9 0e 12 40 |...@#&..|. .....@|
|00000c90| da 51 21 88 db dc c6 dd | 23 ab ce 60 de 5a 66 df |.Q!.....|#..`.Zf.|
|00000ca0| 55 ab a5 e0 e1 21 88 e2 | e3 94 e3 95 7b 21 16 11 |U....!..|....{!..|
|00000cb0| c1 c2 e4 0e 12 40 0e 11 | 23 21 88 0e 11 43 89 16 |.....@..|#!...C..|
|00000cc0| 10 0e 0e 42 16 0e aa 4c | e0 e5 21 ab 47 e2 e6 94 |...B...L|..!.G...|
|00000cd0| e6 95 7b 21 89 16 11 0e | 10 41 73 ac 37 0e 10 0e |..{!....|.As.7...|
|00000ce0| 11 0e 10 41 42 a1 88 aa | 2b 0e 12 41 89 16 12 84 |...AB...|+..A....|
|00000cf0| 46 00 c6 2d 87 22 20 5b | 61 6c 72 65 61 64 79 2d |F..-." [|already-|
|00000d00| 73 65 74 75 70 20 70 72 | 69 6e 63 20 66 6f 72 6d |setup pr|inc form|
|00000d10| 61 74 20 22 53 65 74 74 | 69 6e 67 20 75 70 20 64 |at "Sett|ing up d|
|00000d20| 69 72 65 63 74 6f 72 69 | 65 73 2e 2e 2e 5c 6e 22 |irectori|es...\n"|
|00000d30| 20 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 20 22 73 | call-pr|ocess "s|
|00000d40| 68 22 20 6e 69 6c 20 22 | 2d 63 22 20 22 72 6d 20 |h" nil "|-c" "rm |
|00000d50| 2d 72 66 20 2f 74 6d 70 | 2f 65 73 72 63 22 20 22 |-rf /tmp|/esrc" "|
|00000d60| 6d 6b 64 69 72 20 2f 74 | 6d 70 2f 65 73 72 63 22 |mkdir /t|mp/esrc"|
|00000d70| 20 22 6c 6e 20 2d 73 20 | 25 73 2f 2a 2e 5b 63 68 | "ln -s |%s/*.[ch|
|00000d80| 5d 20 2f 74 6d 70 2f 65 | 73 72 63 22 20 65 6d 61 |] /tmp/e|src" ema|
|00000d90| 63 73 2d 73 6f 75 72 63 | 65 2d 64 69 72 65 63 74 |cs-sourc|e-direct|
|00000da0| 6f 72 79 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |ory get-|buffer-c|
|00000db0| 72 65 61 74 65 20 22 2a | 54 72 61 63 65 20 43 61 |reate "*|Trace Ca|
|00000dc0| 6c 6c 20 54 72 65 65 2a | 22 20 73 75 62 72 73 2d |ll Tree*|" subrs-|
|00000dd0| 63 61 6c 6c 65 64 20 73 | 6f 75 72 63 65 2d 66 69 |called s|ource-fi|
|00000de0| 6c 65 73 20 65 6e 74 72 | 79 20 6e 61 6d 65 20 66 |les entr|y name f|
|00000df0| 69 6c 65 73 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |iles cas|e-fold-s|
|00000e00| 65 61 72 63 68 20 22 43 | 6f 6d 70 69 6c 69 6e 67 |earch "C|ompiling|
|00000e10| 20 25 73 2e 2e 2e 5c 6e | 22 20 22 63 64 20 2f 74 | %s...\n|" "cd /t|
|00000e20| 6d 70 2f 65 73 72 63 3b | 20 67 63 63 20 2d 64 72 |mp/esrc;| gcc -dr|
|00000e30| 20 2d 63 20 25 73 20 2f | 74 6d 70 2f 65 73 72 63 | -c %s /|tmp/esrc|
|00000e40| 2f 25 73 20 2d 6f 20 2f | 64 65 76 2f 6e 75 6c 6c |/%s -o /|dev/null|
|00000e50| 22 20 69 6e 63 6c 75 64 | 65 2d 64 69 72 65 63 74 |" includ|e-direct|
|00000e60| 69 76 65 73 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ives era|se-buffe|
|00000e70| 72 20 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f |r insert|-file-co|
|00000e80| 6e 74 65 6e 74 73 20 22 | 2f 74 6d 70 2f 65 73 72 |ntents "|/tmp/esr|
|00000e90| 63 2f 22 20 22 2e 72 74 | 6c 22 20 72 65 2d 73 65 |c/" ".rt|l" re-se|
|00000ea0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 3b 3b |arch-for|ward ";;|
|00000eb0| 20 46 75 6e 63 74 69 6f | 6e 20 5c 5c 7c 28 63 61 | Functio|n \\|(ca|
|00000ec0| 6c 6c 5f 69 6e 73 6e 20 | 22 20 74 20 33 20 3f 6f |ll_insn |" t 3 ?o|
|00000ed0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 61 2d | looking|-at "[a-|
|00000ee0| 7a 41 2d 5a 30 2d 39 5f | 5d 2b 22 20 69 6e 74 65 |zA-Z0-9_|]+" inte|
|00000ef0| 72 6e 20 30 20 22 25 73 | 20 3a 20 25 73 5c 6e 22 |rn 0 "%s| : %s\n"|
|00000f00| 20 22 2e 2a 5c 6e 3f 2e | 2a 5c 22 5c 5c 28 5b 41 | ".*\n?.|*\"\\([A|
|00000f10| 2d 5a 61 2d 7a 30 2d 39 | 5f 5d 2b 5c 5c 29 5c 22 |-Za-z0-9|_]+\\)\"|
|00000f20| 22 20 31 5d 20 31 31 5d | 29 0a 28 64 65 66 61 6c |" 1] 11]|).(defal|
|00000f30| 69 61 73 20 27 74 72 61 | 63 65 2d 75 73 65 2d 74 |ias 'tra|ce-use-t|
|00000f40| 72 65 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 c0 c2 0b |ree #[ni|l ".....|
|00000f50| 5c 22 5c 22 14 0b c5 89 | 1e 06 1e 07 89 1e 08 ad |\"\"....|........|
|00000f60| ae 0e 08 40 16 07 0e 07 | 41 89 16 07 ab 98 0e 07 |...@....|A.......|
|00000f70| 40 0c b7 89 16 06 ab 6e | 0e 06 0e 08 40 40 0e 06 |@......n|....@@..|
|00000f80| 41 42 a1 88 aa 60 0e 08 | 41 89 16 08 ac 53 c5 2b |AB...`..|A....S.+|
|00000f90| 87 22 20 5b 6d 61 70 63 | 61 72 20 6c 69 73 74 20 |." [mapc|ar list |
|00000fa0| 63 61 72 20 73 75 62 72 | 73 2d 63 61 6c 6c 65 64 |car subr|s-called|
|00000fb0| 20 73 75 62 72 73 2d 75 | 73 65 64 20 6e 69 6c 20 | subrs-u|sed nil |
|00000fc0| 66 6f 75 6e 64 20 70 32 | 20 70 74 72 5d 20 36 5d |found p2| ptr] 6]|
|00000fd0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+